1 REM LINES FOR 1525
490 GOSUB 540:A$=CHR$(10):OPEN 4,4:REM CBM 1525
1100 FOR I=5900TO6134:READ A:POKE I,A:NEXT
1210 DATA202,240,241,76,35,23,13,8,0,0,0,0,0,0,0,0,160,32
1230 DATA200,192,2,208,245,160,40,132,253,160,7,177,250,162,7,42,54,166
1250 DATA181,166,9,128,32,210,255,202,16,246,198,253,208,215,198,252,208,194,96